min_max <- function (inpath, type, para, outpath) {
  
  ## read in  
  data <- read.csv(inpath)
  
  ##min/max berechnen
  out <- type(data[para],na.rm = T) #durch na.rm=T werden NA-Werte nicht beachtet!
  
  ##Wert ausgeben
  write.table(out, outpath)
  
}

## Beispiel (Funktionsaufruf Zeile 1)
min_max("D:/Dropbox/r-course/script/project/ki_0000foc3_000rug_201110010000_201110312355_eat_ca05_cti05_0005.dat",max,"Ta_200","D:/Dropbox/r-course/script/project/outputdata.txt")
